home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
util1
/
scout25.lha
/
scout
/
arexx
/
activatetask.scout
next >
Wrap
Text File
|
1995-12-13
|
744b
|
30 lines
/**************************************************************************
* This ARexx script activates the task <taskname>. *
* USAGE: activatetask <taskname> *
**************************************************************************/
if showlist('p','SCOUT.1') < 1 then do
say "Scout is not running!"
exit
end
address 'SCOUT.1'
parse arg taskname
options results
options failat 20
if taskname = '' then do
say "usage: activatetask <taskname>"
exit
end
FindTask taskname
taskaddress = result
if taskaddress = 'RESULT' then
say "Can't find task '" || taskname || "'!"
else do
ActivateTask taskname
say "Now task '" || taskname || "' is activated!"
end
exit